home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / gshght.for < prev    next >
Text File  |  1991-04-13  |  271b  |  13 lines
  1.         REAL*4 FUNCTION GSHGHT()
  2.         IMPLICIT NONE
  3.         REAL GSCHIT
  4. C
  5. C       THIS FUNCTIONS RETURNS THE CURRENT CHARACTER HEIGHT IN VIRTUAL
  6. C        COORDINATES.
  7. C
  8.         INCLUDE DIGLIB$KOM:GCCPAR.PRM
  9. C
  10.         GSHGHT = CSIZE/GSCHIT()
  11.         RETURN
  12.         END
  13.